home *** CD-ROM | disk | FTP | other *** search
/ Aminet 49 / Aminet 49 (2002)(GTI - Schatztruhe)[!][Jun 2002].iso / Aminet / util / batch / MiniMen.lha / MiniMen / TransADFP.2 < prev    next >
AmigaDOS Script File  |  2000-02-13  |  456b  |  20 lines
  1. .key fname
  2. echo c
  3. cc:MiniMen cc:drives
  4. if exists env:minmen
  5.    echo >env:drive $MinMen
  6.    cc:MiniMen cc:TransMode
  7.    if exists env:minmen
  8.       if $MinMen EQ "NONE"
  9.          cc:TransADF DRIVE $drive: FILE <fname>.ADF
  10.       else 
  11.          cc:TransADF DRIVE $drive: FILE <fname>.ADZ $MinMen NAME Pack.ADF
  12.       endif
  13.    else
  14.       echo "*N Operation canceled...!"
  15.    endif
  16.    delete >nil: env:MinMen env:drive
  17. else
  18.    echo "*N Operation canceled...!"
  19. endif
  20.